﻿Public Class Form14

    Public Type As String

    Private Sub Form14_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Dim Typet As String = Type

            Dim Path As String = Form13.TextBox7.Text & Form13.TextBox3.Text & ".t.xml"

            Dim filePath As String = Path

            DataSet1.ReadXml(filePath)

            With DataGridView1
                .DataSource = DataSet1
                .DataMember = Typet
            End With

        Catch ex As Exception
            MsgBox("Make sure the File(.t.xml) is Saved")
        End Try

        Me.Text = "Table XML Viewer" & " - " & Form13.TextBox3.Text
    End Sub
End Class